
  10 :RETURN ;CLEAR ;BC=RND (32)×8;FC=BC+4+RND (32)×8;FOR Z=0TO 88;@(Z)=RND (8);NEXT Z
  11 F=RND (88);B=F÷10;IF RM=9GOTO 11
  12 @(F)=9
  15 NT=1;P=1000;X=4;Y=4
  20 N=4;E=4
  30 CLEAR ;P=P-RND (20);B=Y×10+X;A=@(B);IF Y=8N=0
  35 IF P<0GOTO 1000
  40 IF X=8E=0
  50 S=Y;W=X;IF N#0N=@(B+10)
  60 IF S#0S=@(B-10)
  70 IF E#0E=@(B+1)
  80 IF W#0W=@(B-1)
  90 PRINT "PRESENT LOCATION:";GOSUB 300+A
  95 IF A=1GOTO 600
  96 IF A=2GOTO 700
  97 IF A=3GOTO 800
 100 PRINT "▲",;GOSUB 300+N
 110 PRINT "►",;GOSUB 300+E
 120 PRINT "◄",;GOSUB 300+W
 130 PRINT "▼",;GOSUB 300+S
 140 PRINT "1-▲   2-►   3-◄   4-▼
 160 PRINT "5-LAND        6-JUMP
 170 PRINT "7-FULL POWER  8-LAUNCH
 173 R=CY
 175 CY=R;PRINT "POWER=",#1,P
 180 IF &(23)=8IF A>3Y=Y+1;GOTO 20
 190 IF &(22)=8IF A>3X=X+1;GOTO 20
 200 IF &(21)=8IF A>3X=X-1;GOTO 20
 210 IF &(23)=4IF A>3Y=Y-1;GOTO 20
 220 IF &(22)=4IF A>4GOTO 400
 230 IF &(21)=4GOTO 850
 240 IF &(22)=2IF A>4CLEAR ;FOR Z=1TO RND (9)+5;P=P-1;GOSUB 900;NEXT Z;GOTO 20
 250 P=P-1;IF P<0GOTO 1000
 260 GOTO 175
 300 PRINT "UNCHARTED SPACE!";RETURN 
 301 PRINT "BLACK HOLE!";RETURN 
 302 PRINT "METEOR STORM!";RETURN 
 303 PRINT "ASTEROID BELT!";RETURN 
 304 PRINT "VOID!";RETURN 
 305 PRINT "PLANET!";RETURN 
 306 GOTO 305
 307 GOTO 305
 308 GOTO 305
 309 GOTO 305
 400 CLEAR ;FOR Z=1TO RND (9)+5;P=P-1;GOSUB 900;NEXT Z
 405 IF P<0GOTO 1000
 410 PRINT "LANDING COMPLETE!
 420 PRINT "PLANET IS ",;GOSUB 500+A
 430 GOTO 140
 505 PRINT "INHABITED";PRINT "BY ALIENS.";RETURN 
 506 PRINT "TOO HOT!";RETURN 
 507 PRINT "TOO COLD!";RETURN 
 508 PRINT "NOT HABITABLE!";RETURN 
 509 PRINT "EARTH!";PRINT "YOU WIN!";NT=15;PRINT "114040505080064";NT=1;GOTO 1010
 519 GOTO 140
 600 H=5
 610 CY=0;P=P-H;PRINT "POWER=",#1,P;H=H+6;IF &(23)=2PRINT "FULL POWER";GOTO 650
 620 IF P<0GOTO 1000
 630 GOTO 610
 650 CY=0;P=P-H;PRINT "POWER=",#1,P;H=H-6;IF H<0GOTO 850
 660 IF P<0GOTO 1000
 670 GOTO 650
 700 IF RND (3)=2CLEAR ;PRINT "METEOR HIT!";FOR Z=70TO 35STEP -2;MU=Z;NEXT Z;P=P-RND (50);PRINT "POWER=",#1,P
 710 IF P<0GOTO 1000
 720 IF &(21)=4GOTO 850
 730 GOTO 700
 800 IF RND (99)=9PRINT "HIT ASTEROID!";GOTO 1005
 810 IF &(21)=4GOTO 850
 820 GOTO 800
 850 X=RND (9)-1;Y=RND (9)-1;P=P-25;GOTO 20
 900 CY=39;PRINT "POWER=",#1,P;RETURN 
1000 PRINT "POWER GONE! ",
1005 PRINT "YOU LOSE!";FOR Z=1TO 2000;NEXT Z
1010 X=(X-4)×10;Y=(Y-4)×10;M=(F÷10-4)×10;N=(RM-4)×10
1020 CLEAR ;BOX X,Y,3,3,3;CY=Y;CX=X+7;PRINT "YOU",
1030 BOX N,M,5,5,3;CY=M;CX=N+7;PRINT "EARTH",;BOX 0,0,80,80,3
1060 IF KPRUN 
>RUN 
